home *** CD-ROM | disk | FTP | other *** search
- set("/:col" add clx,1);
- set("/:ymax" add clx,eval("/:ymax" add clx) + 1);
- set("/:tscore",Number(eval("/:tscore")) + 1);
- set("/:var" add clx add "_" add cly add "_gone",1);
- if(eval("/:var" add (clx + 1) add "_" add cly add "_gone") == 0 and eval("/var" add (clx + 1) add "_" add cly add ":clc") == clc)
- {
- call("/var" add (clx + 1) add "_" add cly add ":right");
- }
- if(eval("/:var" add clx add "_" add (cly - 1) add "_gone") == 0 and eval("/var" add clx add "_" add (cly - 1) add ":clc") == clc)
- {
- call("/var" add clx add "_" add (cly - 1) add ":up");
- }
- if(eval("/:var" add clx add "_" add (cly + 1) add "_gone") == 0 and eval("/var" add clx add "_" add (cly + 1) add ":clc") == clc)
- {
- call("/var" add clx add "_" add (cly + 1) add ":down");
- }
-